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12 FORM SEEK ADDRESS 
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* 
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0 
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...O..KP.F../.2-t.-4..,.K.l-..:.-.. 

MXQWC,X3 SHOULD WE LOCATE THRU THE M3F 

8 AREA 

MSFR^'L' ' .... 

MXQqTxS GET THE CORE ADDRESS 

IMPURE ENTER THE CONTROLLER NUMBER 

"'I........DS'E. 2 V F" L'OC'AT'I CN S ' / ' C 0N'TR'O'L'L'ER 

X2 STARTING LOCATION TO X2 

'6 .... .............-. 

7 PAGE NUMBER OF THE XFER TO A 

2 FORM 1/4 PAGE NUMBER 

DKPF,X2 SET THE PAGE FILE 
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■"D'KPF'+"iTX'2 .......".. 
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♦ 
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TIA 
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P 
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.L/ TN X w. 

UJP 

04210 
00211 
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20 ■ill 7 77 
17 60 7777 
12000014 

■. X ... " " 

255 
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LDA 

ANA 

SHA 

40213 

. Q.n-2.1.4--.. 

40 30 0 210 

...5 4. 2 0. 0 164. 

X 

.p....... 

258 

25 9 

..2.6-0 ... 
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^ j u C- ji^ nr 

00215 

00216 
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20077777 

35200026 

X 

X 
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Lw w «L 

LDA 

SSA 

0 0217 
00220 
00221 

40200216 
77550000 
5350 0000 

X 

263 

264 

265 


-. ST'A'-"- 

CIA 

TAI 

W2'22^’' 

00223 

53 30 0 OOD 
40177777 

X 

26 6 

267 


.TiA. 

STA 


.3..Q-2-24.40-2W-7-7-?. X ...-.^2-64--ST-A- 

00225 20000061 P 269 LDA 

00226 44200217 X 270 SWA 

0-0227 -0100 0 000 .271.—-0 KR£TURN'-OJ-P 

272 
27 3 

. . . ... ... '2"'74. .. ..—. 

00230 02500061 P . 275 CONERR IJO 

.04244-.7-7-40-O42-&---..-.2-76-.-.SELRE-AO-^.SEL- 

00232 14000000 277 NOP 

278 


-00233 

-02200036 P 

00234 P 

... 27'°-" .. 

280 
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-'ENDLOOP . 

EXITING 

--I'Ul- 

EQU 

00234 

00235 

4 023-6- 

14100012 

1460 0030 

-.-0-4-0-0-&-Q--fl-!1-__- 

282 

262+OGl 

.....,g.g.3.... 

.._ 

ENI 

ENA 

-X-S-F 

00237 

0 0240 

. 9-0244 ' 

00242 

00243 

01000243 P 
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0100 0 250 P • “ 
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.- -2 8 - 3 -+-0 0 - 3 -- 
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UJP 
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SWA 

0 0244 
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. 7.7..1.0,..0..0-C-a-.-.-.- 
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DKEXIT . 1 
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IJD 
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00251 
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-. 29-0 . 
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LG I 
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.-0425-2. 
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29 3 
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77778 SAVE LAST TIMEo STATUS 

4.2.,....:..:... 

MXQCSTAT,X3 AND STORE IT EACK 

-GONNUMtXB.-..GET-.THE GQNTRGLLER.NUH8ER 

BIT23 SAY 10 IS HAPFEMNG ON THIS 

0KC0NTA8,X2 CONTROLLER 

•-D-KCB-NTABTX2 ... . 

GET THE CHANNEL NUMBER 
Xi 

X3. . ....GET.THE L 0 6IGIA'I .PACK'. NUMBER 

DKAGTIVEfXl SAY WHICH UNIT HAS THE CONTROLLER 

-3-KP-Q4MT-rX-2.-.—.-.-. -.-.-.-.-.-. 

CON GET THE CCNNECT CODE OF THE UNIT 

DKC0NTAB,X2 THAT IS ACTIVE 

“I-MPU-RE ...EXIT. 


C0N,X1 LOOP A FEW TIMES 

..0424-B--,-SELECT- -.- SELECT R-i-A-D-Y- A-N-C-NO-T—BU-S-Y . 

0 

'NEXTUNIT,X2.GO TRY ANOTHER UNIT 

* 

'BWN'T^^j'xr . ......... 

303 SELECT END OF SEEK 

-4-NP-UR-E-,-0---.—.-.-SK-TP—I-F.A:-SC-N-N-S-GT.COSE . I-S . IH 

IMPUREjXQ 

■OKEXIT . ■ ......,.. 

208 SELECT READY HOT BUSY 

DKEXIT.i 

IHPGRcQ .....CONNECT TO THE UNIT 

CONFLAGjXl 

IMPU-REt-SELECT.- -SELE-CT -THE FUNCTION - . 

CONFLAG,Xl 

- 0 KRET URN",-X2- .... LO AD THE - RETURN ADDRESS -. 

UNGOH ' GC RELEASE THE CHANNEL 


MXQU-,X3 —.-. L0A3--The-F-I-RS-T WORD AOD-R-ESS 

SETADDjXl 
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OKHNOLR 




.THIS..-SEGTiO .A.TRANSFER-.TS.-FINISHEa,.-.IT.» 

CHECKS TO SEE IF ANY ERRCRS WERE DISGCVERED DURING CHANNEL » 

^ INTERRUPT PROCESSING OR IF ANY ERROR STATUS HAS COME UP » 

..IN E-ITHER CASE THE ERROR“CCUNTEF"^^^^^^^^^ » 

^ TRANSFER IS INCREMENTED AND CHECKED TO SEE IF TOO MANY ^ 

^ ERRORS HAVE OCCUREO. IF TOO MANY HAVEj EXIT IS MADE TO MXBT, » 

...OTHERWISE IS.EVERY EIGHT ERRORS A RESTORE » 

^ IS DONE ON THE UNIT IN HOPES THAT THE NEW SEEK WILL CAUSE « 

« .M A R G IN AL.AD DRES SI N G.PR OBLEM-^^- ‘"0 A W A T ,.I F.TH E ^IR AN S P£R IS.* 

^ OK, A CHECK FOR PREVIOUS ERRCRS IS MADE AND A MESSAGE IS * 

* PRINTED GIVING THE STATUS OF THE LAST ERROR ON THE DEVICE. ♦ 

-- ------- 

jy. -y: Tf. jy. jf. y Jf ^ ^ ^ ¥ ¥¥ 


00254 

.0125-5. 

00256 
00257 
00250 
0 0261 
0 0 262 
0026X’ 
00264 

..0-0-2-65. 

D0266 
00267 
0 0270 
00271 
00272 
-¥0273' 
0 0274 
0027-5- 
0 0276 
0 0277 
»Q5'30Q 
0 0 30 1 
00302 

00305. 

00304 
,.00.305. 
0 0306 
0 0307 


. 

44000255 

.7- 7- 0 0- 0 -0 0 0-- 

01000250 
77100023 
01000250 
37077777 
7710 0025 
-oxa‘'a''025'ff^' 

40100226 

,.20-40-0.224. 

53700000 
77550000 
42 00135 7' 
15600010 
42 001363 

53ff2010'0. 

53 010 000 
...l,3.Q..7-ZZ-7.5- 
17677777 
17777777 
16477777 
53040000 
21300150 

XffI'0'''05E2. 

77205026 
01 00 0 402- 
20300213 
17605164 


DKGPINFR ECU' 
SWA 

-GGN-0-2..GO-N- 

UJP 


'O'Q'275—3- 
00274 3 


SEL 

- 

LPA 

SEL 

.DJP. 

ST A 

.LO-A.-. 

TAI 

CIA 

-SrktH 

INA 

SACH 

.TH^A. 

TMQ 

.SH-A-Q. 

ANA 

ANQ 

■'X0A ,S ■■ 
AQA 
Loa 

.ST'A-... 

EXS 

-UJP 

LDA 

ANA 


CON0 2 

X-MPU-RE,-a. 

DKEXIT 

0023B,SELECT 

X-KEXI'T. 

NBIT23 
00258,SELECT 

'OKEXlI'. 

DKG0NTA8,X1 

-,D-KP-0-IN-T-,-X-1^-. 

X3 


•"TMA“+'3 

109 

TMQ+3 

.IWURE'^' 

IMPURE 
-^-2-.-. 


SAVE THE CONNECT CODE 


THE CONNECT SHOULD NOT REJECT 
RELEASE EOF 

CLEAR THE ICP BIT 

RE L E A,S .E.A,8 N 0 R F A L.E,Q-P... 


-P-OIN-T.TO.THE.F-RGF-ER.BLOC-K. 

COMPUTE THE LEFT OVER WORD 
COUNT 


777778 

77777B 

-ZZ77-Z8. 

MXQISTAT,X3 
-flX'0rS'TAT^,13"“ 
50268,SENSE 

CKERR. 

MXQGSTAT,X3 

51648 


.COFRENT.ACD'RES'S'T^O'.F 

ENDING ADDRESS TO Q 

-C-ON-V-ER-T-.-TO.-WG-R-O-S--. 


LEFT OVER WCRG COUNT IS NOW IN A 
LOAD THE CHANNEL STATUS 

.SF¥E~ IK THE.HXQ ELEMENT.... 

CHECK FOR ANY ERRORS 

JUMP-IF THERE IS ONE.. 

WERE THERE ANY PREVIOUS ERRORS 
JUST LOCK AT THE ERROR BITS 


o... 

00310 ■ 

00311 

00312 

• ■0310U406- 
13 00 0 0 50 
03100430 

-P. 

P 

343 

34 4 

345 


AZJjNE 

SHAQ 

AZJ,M£ 

■DKERR02 

24 

INSORTER 

■ .. JUMP IF AN ERROR 

CHANNEL STATUS TO A 

JUMP IF ANY CHANNEL ERRORS 


.01513. 

00314 

0 0315 

"X Q JO 0'2 aT‘ 
03300325 
12 00 0 0 01 

.X.. 

p 

346 

34? 

34 i 


.L04T.. 

A2J,LT 
SHA . 

...HF¥WC4X3. 

DKOONE 

1 

LOAD THE I/C REQUEST 

JUMP IF A READ 

O . 

00316 

00317 

: \ A “7 o n 

03200325 

12000001 

p 

n 

349 

35 0 

'7 ITZ T 


A2J,6E 

SHA 

DKOONE 

1 

JUMP IF IT WAS A WRITE CHECK 

i s ft sur fTt T c. N{ 1.. rs T T C', r“ u £7 r' !>■ ij a ks t'jc: fi 

Q. 

U U OC U 

0 0 321 
00322 

U o 3 u U 8 id 6 

17477776 

12000026 


! ^ i 

352 

353 


Mil,u $ (?li 

ANA,S 

SHA 

□ KuUNt. 

777763 

22 

Jump ip nu wwiit, thtUK WANitu 
CLEAR THE WRITE BIT 


.■.00523. 

00324 

.403¥0-5I5^' 

01000033 

.X. 

p 

.35 4.. 

355 

..3 5 B . 


.STF“'"“... 

UJP 

.-'i^'X'a'W'C'j'xs. 

SEEKLOOP 

...•... -'STmE .TBE.I/O.'GOMM’AND.BACK.. 

GO LOOK FOR SCHETHING TO DO 

O’. 

o,, , 

00325 

0 0326 
00327 

U0325 
20377777 
12077763 
0310 0340 

0 0330 

p 

X 

p 

p 

357 

358 

. 359' 

360 

361 

DKOONE 

DKDONEO 2 

ECU 

LDA 

SHA . 

AZJjHE 

EQU 

MXQERR, X3 

. -12. 

DKOONE04 

WERE THERE ANY ERRORS 

JUMP IF THERE WERE 


..50350'^' 

0 0 331 

0 0 332 

20 377777 
12077755 
5350 0000 

■'"X"...... 

...“'’■'56'2.. 

363 

364 


'XD'r^'“.. 

SHA 

TAT 

.H'XaC5H475.... 

-18 

X 1 

,CO fi D ■ 1 HE UNIT N 0H: 8ER ■ 

1 ni^TOiAi miT TO X1 


0 0 333 
00334 

24 00 0 215 
3730 OUOO 

7, n H n n n c fj 

X 

V 

. 365 

366 


LCA 

LPA 

C T A 

BIT23 

0 ,X3 

CLEAR BIT 23 CN THE MXQ ELEMENT 
GET THE NEXT FCINTER 

o„ 

u u o ‘ 

00336 
00337. 

41) lu ti UbU 
14100033 
01077777 

"A. 

P 

X 

0 o / 

368 

369 


b 1 A 

ENI 

UJP 

n X W A i i U i a1 
SEEKLOOP,XI 
MXNE 

ENTER THE RETURN 

LINK THE BLOCK INTO THE 

t> ... 

..0 0 34 0. 

00340 
,,.14,20,0 350 

p 

.p.. 

. .375.. 

371 

572 

DKOONE04 

EQU 

FNT 

¥ 

___DXD O.N E 02 i 

....E.N...J..E.R.I-H-E.R..EI.-U...R..N... . ...;.:.:. 

O".'. 


0 0 341 

o n zt n fi z! n c. 

p 

'/ 

375 

374 

*7 "V C 

ERRPRINT 

EGU 

1 n A 

¥ 

,, C T A T- ,, Vi-3 

r'CT-TUCCTATSIC uHon 

Q 

l) U 0 T- 1 
00342 

c U ou u o U b 
14177774 

A 

ofy 

376 


Lu A 

ENI 

n ai4u b J a 1 A^D— 
-OjXl 

.j.,, I.'brAlUb ifNUK.U 

PRINT 4 CHARACTER STATUS 


O 
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'0 0 34'3‘ '147D0G00 37 7 .ENQ ' 

00344 13000003 378 SHAQ 

-0 034-5.-43.40-2-7 42. 9 .0 05-7-0.-2.-.37-9.-..-SQG-H . 

00346 02100343 P 380 IJI 

00347 20300325 X 381 LDA 

g . 3 , 3„2 . 

00351 51077777 X 383 OVA 

00352 42U0271Q P 00562 0 384 SACH 

''00^35'3.43.OO'ZTII.P'^...Q'0'562.i... JWT .....-.S'C'CH" 

00354 20300330 X 386 LDA 

-0-0-3-5-.5.12-0-7..7-.7-.55...-. 367 .-.-.--S-H-A . 

00356 5350000C 388 TAI 

00357 13077747 389 SHAQ 

00360 '5100 03-51 X.•• 390.. .OVA.. 

00361 42002717 P 00563 3 391 SAGH 

00362 43002720 P 00564 0 392 SQCH 

T0^3d 3^.2-oTO'OTr3^“''0<.....'“39T...:..^... CD^A . 

00364 14177770 394 ENI 

-0-0-36-5 .14-7-0-0-0-0-0...-- -.-2-9-5- - .- -— E-N-Q- 

00366 130000Q3 396 SHAQ 

00367 43402733 P 00566 3 397 SQCH 

00370- •■0210 0 3 65--P-.398....IDI. 

00371 20300323 X 339 LDA 

00372 12077752 4QQ SHA 

0"D"37T I76a~¥0Ty.....-..... 401.. .... AMI' .. 

00374 53500000 402 TAI 

.,.0-.0-3-.7-.-5-.--2-2-4-0-2-7-0.4--P-.-.0-.Q.-.5-&-.1.0---.-.-4-&-3...-.-.L-A-GH- 

00376 42002713 P Q0562 3 404 SACH 

00377 11002710 P Q0562 0 405 EGHA 


00400 

0 040 1 

14 70 0 0"34 
01077777 

X 

..... 40 'e. 

407 
^ 408 


-ENQ -. 

UJP 


00432 

P 

40 9 

D KERR 

EGO 

00402 

77200000 


410 


COPY 

.0..0.4...0--3. 

.4.7 6 0 7 7 7-7. 


.::„4.. L i . 


A.. 

00404 

35300341 

X 

412 


SSA 

00405 

40300404 

X 

413 


STA 


0 0406 

p 

414 

415 

DKERR02 

£QU 

00406 

20300347 

X 

... 4 ,:l-. 6 -.. 


LDA 

00407 ' 

15 410 0 00 


41 7 


tna, s 

00410 

40300406 

X 

418 


S f A 

. 0 0-441. 

.4,3.fl„,Z.Z7.,&.3. 


......:. hA .'Q.,. 


.. 

00412 

12477763 


420 


SHG 

00413 

14277777 

X 

421 


ENI 

• 00414 

- 0360-0341 

p 

----- - - 422 -- 


■ A'OJ-f-GE- 

00415 

17600007 


423 


ANA 

0 0416 

15477775 


424 


INA,-S 

.-O'O^l?. 

03 lu 0422 

p. 

... 4 2'5 .. 


AZJ,NE 

00420 

77100001 


42 6 


SEL 

.. 0 . 0 - 4 - 2-4 . 

..4.,4.o..o.,..0 Q-'Q 0 


.... 42 7. 


.^j0.p.._ 

00422 

20300405 

X 

42 e 


LDA 

0 0 423 

17603010 


429 


ANA 

00424 

■ 03000033 - 

p. 

. 430 


-AZJ-,EQ 

0 0425 

77100020 


431 


SEL 

0 0 426 

140000 G 0 


.:.4,32. 


NOP 

00427 . 

01000033 

p 

433 


""UJP... 




- 4 >*5 4 






.. 4 3 5 -.. 










0 0430 


43 6 

INSORTER 

EQU 

00430 

1760 9010 


43 ? 


ANA 

00451 

Q 30 Q 0 Q 33 

p 

H c- -8 


-A- 7 J-,- EQ 

00432 

20300371 

X 

439 


LOA 

00433 

03300033 

p 

440 


AZJ,LT 


0 0 434 

p 

441 

442 

MXIRERR 

EQU 

.J.O-43-4. 

. 14477 776 


......_,„ 4 ,.-4.-3. 


-..EN„A,,-S--- 

00435 

34300354 

"x.*.... 

444 


RAD 

00436 

010003 oG 

p 

445 


UJP 




446 






447 




_ .0 0.437 _ 

p 

448 

SEE KERR 

EQU 

0 0 437 

77 5;p 00 0 0 


44 9 


"GTI". 

00440 

535 Q 000 D 


450 


TAI 

.:. 0 , 0 .44-1. 

.,1.,46-Q-Q,.Q-Q..l. 


....:.:,..4..5...1. 


,,ENA.- 

0 0 442 

12 10 0 0 00 


452 


SHA 

00443 

16612000 


453 


XOA 

0 0444 

44000445 

p 

454 


SWA 

00445 

77512000 


45 5 


CLCA 


-MESSST+3:,-Xi 

^-3j.Xl 

MXQ£RR,X3 

-^*36- .. 

DIO 

MESSCNT 

MESSGNT+T'. 

MXQCOM,X3 

-=.-18 .-.- 

XI 

-24 

OlO 

MESS UNIT 
MESSUNIT+1 

OrSKlDDlXT'. 

-7,XI 


GET THE ERROR CCUNT 


SAVE THE COUNT 


LOAD THE UNIT NUMBER 
UNIT..jg' .xT... 


SAVE THE LOGICAL UNIT NUMBER 

TOAD.THE.DISK.4G01?rss .. .. 

8 CHARACTER ADDRESS 


MESSADD+7,X1 

♦-3yXl 

MXQWG,X3 

... 

3B 

Xi 

-I-O.T-Y-P-.E-,-X-i.. 

MESS RE Q 
MESS 
-MESSL 
OPMSG 


LOAD THE I/C REQUEST 


ENTER THE ADDRESS OF THE MESSAGE 
-ENTER 'THE •.LENGTH 
GO CCS'lPLAIN 


0 

,-,72-7-7-8-- .—. 

MXQCSTAT,X3 

MXQCSTAT,X3 


GET THE CURRENT STATUS 
-U-U-S-T.THE.-ST-ATU-S .-. 

SAVE THE NEk STATUS 


HXQERR,X3 

ioaeos ... 

MXQERR,X3 

-=12. 

-12 

MX3T,X2 

ERRPRINT 


'»+3 ■. .. 

0 0018 ,SELECT 


HXQCSTAT,X3 
00108 

SEEKLOOP- ■ -- 
0 02Q8,SELECT 
0 

STEK'LOQF 


GET THE ERROR COUNT 
.C H' A L K '■ U P . ANOTHER' C 'N E "...... 

HAVE-WE-EXC-EECED -THE LIMIT 

ENTER THE RETURN FOR ERRPRINT 

JUMP IF TOO MANY ERRORS -. 

DO we WANT TO DO THE RESTORE 


CHECK THE LAST ERROR STATUS 
CHECK FOR ADDRESS ERROR BIT 
JUMP IF NOT ACDRESS ERROR 
SELECT READY AND NOT BUSY INTERRU 
THE HARDWARE IS DCING A RESTORE 
TRYYO DO ANOTHER TRANSFER 


103 

SEEKLOOP 
MXQWC,X3 
SEEKLOOP 


LEAVE THE MEMORY PARITY ERROR BIT 
JUMP IF NOT HEHCRY PARITY ERROR 
LOAD 1 HE I/O REGUEST 
DO READS AGAIN 


mxqc5“m7^^^^^ 

DKDONE02 


-S-ET.-T-H-E-.I.R.-.-..RE.TU-RN- 


Xl 

-.1 . 

0 ,X1 
12000B 

IMPURE 


'GET.THE.CHANNEE.NUMBER . 

CHANNEL TO XI 

-FORM . THE .M ASK . FOR-XHE. CLCA . 

FOR THE CLCA 

TURN OFF GREEN LITES 
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DKHNDLR 

.OJP' 


SEKLUPOZ 


TRYAgain 
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... 

00450 

.n n 45 1. 

. 

15477776 
.- n ,'? , 6 n n 2 31. 

,..P... 

. '45"E. 

45 c 

..4(>,n_ 

REJ 

TMA 

INA ,S 
.-,flQ,i,.,GF. 

00452 

00453 

77 10 0 ODO 
01000447 

P 

461 

462 

SELCODE 

...........■ 

SEL 

UJP 

U 0*45'4"" 
0 0455 

0 0456 

“OrOUuQ'0 0“ 
44000452 
53010022 

P 

463 ‘ 

464 

465 


'^"UJP... 

SWA 

TMQ 

. -wmsi . 

0100 0 452 

P 

466 

467 

.46 £. 


OOP 

,0 046 0 
00461 

01000000 

13000030 


469 

470 

. / . 

GHANINT 

UJP 

SHAG 

“"‘~~”“O'0‘4t>'2 

0 0 463 

0 0464 

■ 7 73 5 0 0 00 
53500000 
20100223 

X 

471 

472 

473 


' UIA. 

TAI 

LDA 

. 

00466 
..0 046 7 

■“¥IO0W60''" 
53700000 
-13-0.0-0-03Q. 

P 

474 ' 

475 

.476 .. 


. 'AT'J',W 

TAI 

.S„HA-Q_ 

00470 

0 0 471 

40300303 

03100460 

X 

P 

47 7 
478 

1 . "7 r* 


cJ? t 1 M; 

STA 

AZJ,N£ 

. ' . 

0 0 473 

0 0 47 4 

7 7 20 5 0 2 
7720 0 000 
17607777 


..£|'TS 

48 0 
481 


hXb 

COPY 

ANA 

.. 

00476 

..-.0-0-477. 

. 

40300475 
.01-000-46-0- 

X 

X 

-P.--.-. 

.482 

483 

--46-4. 


SSA 

STA 

UJP . 


CLOCK. .GET... 

-1 WAIT MAX GF 1 MSEC. 

SELR-EADY...JUMP-.I-F-.WE.LOST. 

IMPURE,SELECT 
REJ 

TMPU'RE. . 

SELCODE SAVE I HE FUNCTION CODE 

CLOCK GET THE CURRENT CLOCK 

SELCO'D'E................ 


IMPURE 

24 ERROR BITS TO Q 

.GE T- ■ T H E C H A N N E'L~“Nt] MSE‘R 

Xi 

OKACTIVEjXl GET THE PROPER UNIT 

■^CWNTMT^.:.....Y.asiN'C-'^“"T'H'E. ch^NNEL.. 

X3 

_.2.,£4 ....ERRQ-R g-IT-S- BA-GK T-G- A-.- 

MXaiSTAT,X3 SAVE THE STATUS FROM INTSORT 

GHANINT 

5 024B , SENSE. COPY STATUS IF ' ASNORMAt- ■ OR . 

0 COMPARE ERROR 

77776 SAVE JUST THE STATUS 

'WXQE^STITTXS''..... . GET THE' STA'TUS' "FWr'M.LTST.Tl"M'E" 

MXQCSTAT,X3 SAVE THE CHANNEL STATUS 

-GHAHINT--...-..EXIT- BACK TO INTSCRI.- - 
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Cl 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

Qa 

C^1 

1 tJ' 

Os- 

qS- 

Oe, 

O" 

Q. 

o" 


487 

^438 

489 

490 

491 

492 

493 


DKHNDLR 

...... 

>(■ 

¥ 

.-If.... 

■V 


fl) 


QKGkK 


¥ ¥ ¥ V ^ « ^ 

♦ 

* 

---- ..„.............„„...„Sf... 


THIS WANDERS AROUND AND CHECKS TO SEE IF ANV DISK 

. 

A thought; 





494 

495 


00 WE REALLY NEED TO SAVE THE CHANNEL INDEX REGISTER ^ 

^ ^ ^ ^ ^ ^ ^ n Jf if, if, ^ ^ if Jf ii M J± M i€ ^ id, 

0 050 0 

54300227 P 


497 

498 

HXBTRET 

LDI 

DKRETURN,X3 

LOAD THE RETURN ADDRESS 

.0 0 5 U 1 

0 050 2 

0 050 3 

47 30 0 5 51 P 
77550000 
42002637 P- 

00547 3 

499' 

500 

501 

D K C L K 

^ S TI 

CIA 

3ACH 

D KoE KRE 1 j X3 

0KC.LK12+3 

SAVE THE RETURN .■ 

SAVE THE CHANNEL INDEX 

REGISTER 

0 050 4 
00 505 

..0-0-50-6— 

1417 7 777 X‘ 
20000333 X 

.2,l.,Q,0„0-5.05.. 


502 

503 

0 KCLK 02 

ENI 

LOA 

MSUNITS,X1 

3IT23 

a T T P . 

LOCK FOR BIT23 

0050 7 
00510 

0610 0335 X 
01000522 P 


... 

505 

506 


MEQ 

UUP 

..I...;...... 

MXWAITQ,! 

OKCLK04 


U 0 511“ 
00512 

0 0 513 

5 0 lu u uu y 
13077747 
51000360 X 


5 0 7 

508 

509 


T IA 

SHAQ 

OVA 

X 1 
-24 

DIO 

LOGICi'AL DEVICE N'DMBER'''T0 A 

0 0 514 

0 0 515 

.... 0_0^.51...6.. 

42002754 P 
43002765 P . 

. il44.2,.7:44.p. 

.o'o'srs . O'" . 

00575 1 
.. 0.,0 5,71.fl,,. 

.5"I"0'.. 

511 

.,5,1,2. 


SACH . 

SQCH 

PC HA . 

REAOYUNT 

REAOyUNT+1 

RFAUYMFS 

STORE IRE UNIT NUM9ER IN THE 

MESSAGE 

0 0517 
00520 

14700023 
14200505 P 


513 

514 


ENQ 

ENI 

READYHSL 

OKCLK02,X2 


.U 0 521 

0 0522 

u 1 0 / / 7 / 7' X' 

14177777 X 


'515' ' 

516 

517 

DKCLKQ4 

•JJR 

ENI 

" OPMSGX 

MSUNITMl,Xi 

GO COMPLAIN ' ' ■ - • . 

00523 

0 0 524 

..... 0„0S.2.5-... 

20100507 X 
05600001 

. 0.10,0.45 30 ,P.. . 


519 

. 5,2.Q. 


.L"D''S.... 

ASG 

.(JJP. 

MXWAITQ, Xi'""". 

1 

.. -»• +3 . . , 

SKIP IF A POINTER IS PRESENT 

JUMP IF NOT 

00526 

00 527 
00530 

..:.00531. 

35000506 X 
40100523 X 
0250'Q’523-P 

14177777 X 


521 

522 

52 3' ■ 
52 4 

52 5 


SSA 

ST A 

^ENI 

BIT. i 

MXWAITQ,Xi 
^-5, XI- 

NUNOKMl,XI 

' LOOP- THRU ALL : UNITS . . 

0 0 532 

... 0-0:5^3.-3 . 

2Q100264 X 
.03400 54 6 ?. 


:>2c 
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